



	******************************************************************
	**
	**
	**		NAME:	ELITE PERSISTENCE IN THE ERA OF EXPANDING OVERSEAS TRADE
	**
	**		MAKES:  Figures in Appendix H		       
	**		
	**
	******************************************************************
	
	
	
	
	

			

		
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* globals for directories
*-------------------------------------------------------------------------------
	

	
* input
*------

global input = ""



	
* output
*-------

global output = ""	
		
	
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* preliminaries
*-------------------------------------------------------------------------------


* preliminaries
*--------------

clear
set more off




* use data
*---------

cd ${input}
use   "analysis_vars_othertrends.dta", clear






		
	
		
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* plot: new peerage creations (FIGURE H1)
*-------------------------------------------------------------------------------


* rarea
*------

capture drop hi lo
gen hi = 40
gen lo = 0




* plot
*-----

# delimit ;

twoway 

	(rarea hi lo parl_year	
		if   parl_year >= 1640 & parl_year <= 1649 
		,  color(gs12) )
	
	(line tot_peercr  parl_year
		if parl_year >= 1500 & parl_year <= 1750
		,  lcolor(gs1)  lwidth(medium) lpattern(line)   yaxis(1))
	
	(line cum_peercr  parl_year
		if parl_year >= 1500 & parl_year <= 1750
		,  lcolor(gs6)  lwidth(medthick) lpattern(shortdash)   yaxis(2))
		
		
		,
		yscale(noline  axis(1))
		yscale(noline  axis(2))
		xscale(noline )

		xsize(8.5)
		ysize(3)

		
		title("", color(black) size(medsmall) pos(11) ) 
		xlab( , 
			labsize(medsmall) ) 
		ylab(, 
			angle(hori) labsize(medsmall) nogrid  axis(1))
		ylab(, 
			angle(hori) labsize(medsmall) nogrid  axis(2))
		xtitle("Year" , 
			color(black) size(medium) )
		ytitle("Creations", 
			color(black) size(medium)  axis(1))
		ytitle("Cumulative creations", 
			color(black) size(medium)  axis(2))
		graphregion( fcolor(white) lcolor(white) ) 
		plotregion( fcolor(white) lstyle(none) lcolor(white) ilstyle(none)) 
		legend(order(
				2 "Peerage creations"
				3 "Cumulative peerages created"
				)
			cols(3)
			pos(6)
			
			region( color(none) )
			size(large)
			)
		
		;

# delimit cr


	* export graph
	*-------------

	cd "${output}"
	graph export "Trend_PeerageCreations.pdf", replace
	
	
	
	
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	
						** end of do file ** 
